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-- file ObjectOut.Mesa 

-- last modified by Satterthwaite, May 17. 1978 9:49 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [CharsPerWord , PageSize], 
BcdDefs: FROM "bcddefs" USING [VersionStamp, SGRecord, FTNull], 
ComData: FROM "comdata" 
USING [ 

compilerVersion, codeSeg, defBodyLimit, def initionsOnly. fgTable, 
fixupLoc, importCtx, mainCtx, moduleCtx, mtRoot, MTRootSize, 
netNumber, objectVersion, rootFile, sourceFile, sourceVersion, symSeg], 
CompilerDefs: FROM "compilerdefs" , 

LitDefs: FROM "litdefs" USING [CopyLiteral , ForgetLiterals], 
OsStaticDefs: FROM "osstaticdefs" USING [OsStatics], 
SegmentDefs: FROM "segmentdef s" 

USING [FileHandle, Append, Defaul tVersion, Write, NewFile, SetFileAccess] , 
StreamDefs: FROM "streamdef s" 
USING [ 

StreamHandle, Streamlndex, 

CreateWordStream, Getlndex, Normal izelndex, Setlndex, WriteBlock], 
StringDefs: FROM "stringdef s" USING [AppendString , WordsForString], 
SymDefs: FROM "symdefs" 

USING [fgHeader. FGTEntry, STHeader, WordOffset, VersionlD. IL], 
SymSegDefs: FROM "symsegdefs" 
USING [ 

Ittype, httype, sstype, setype, ctxtype, mdtype, bodytype, exttype, 
ExtRecord, Extlndex], 
SymTabDefs: FROM "symtabdefs" USING [hashblock], 
SystemDeFs: FROM "systemdef s" USING [FreeSegment], 
TableDefs: FROM "tabledefs" 
USING [ 

TableBase, TableNotif ier, TableSelector, 
AddNotify, DropNotify, TableBounds] , 
TimeDefs: FROM "timedefs" USING [CurrentDayTime] , 
TreeDefs: FROM "treedefs" 
USING [treetype, 

Treelndex, TreeLink, TreeMap, empty, nullTreelndex, TreeNodeSize, 
freetree, NodeSize, UpdateTree], 
Xref JournalDefs: FROM "xref journaldefs" USING [VersionlD, XRJHeader]; 

ObjectOut: PROGRAM 
IMPORTS 

LitDefs, SegmentDefs, StreamDefs, StringDefs, SymTabDefs, SystemDefs. 
TableDefs, TimeDefs, TreeDefs, 
dataPtr: ComData 
EXPORTS CompilerDefs SHARES StringDefs « 
BEGIN 

stream: StreamDefs .StreamHandle; 

PageSize: CARDINAL = AltoDefs .PageSize; 
BytesPerWord: CARDINAL = Al toDefs .CharsPerWord ; 
BytesPerPage: CARDINAL = PageSize*BytesPerWord; 

nextFilePage: PUBLIC PROCEDURE RETURNS [CARDINAL] - 
BEGIN OPEN StreamDefs; 

fill: ARRAY [0..8) OF WORD *- [0, 0, 0, 0, 0. 0, 0. 0]; 
m, n. r: INTEGER; 

r <r GetIndex[stream].byte/BytesPerWord; 
IF r i^ THEN 

FOR n <- PageSize-r. n-m WHILE n > 

DO 

m <- MIN[n, LENGTH[f il 1 ]]; 

[] <- WriteBlock[stream, BASE[fin]. m]; 

ENDLOOP; 
RETURN [Getlndex[streaiii].page + 1] 
END; 

WriteObjectWords: PROCEDURE [addr: POINTER, n: CARDINAL] ■ 
BEGIN 

[] ♦- StreamDefs. Write81ock[stream, addr, n]; 
RETURN 
END; 

RewriteObjectWords: PROCEDURE [index: StreamDefs. Streamlndex. addr: POINTER, n: CARDINAL] 
BEGIN OPEN StreamDefs; 
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savelndex: Streamlndex ■ Getlndex[str8am]; 

Setlndex[stream, index]; 

[] <- WriteBlock[stream, addr, n]; 

Setlndex[stream, savelndex]; 

RETURN 

END; 

-- bed i/o 

bcdOffset: CARDINAL; 

bed Index: StreamDef s. Streamlndex ; 

BCDIndex: PROCEDURE [offset: CARDINAL] RETURNS [StreamDef s .Streamlndex] « 
BEGIN OPEN StreamDefs; 

byteOffset: CARDINAL ■ of f set*BytesPerWord; 
RETURN [Normal izeIndex[StreamIndex[ 

page: bcdindex.page + byteOf fset/BytesPerPage, 

byte: bcdlndex,byte + byteOffset MOD BytesPerPage]]] 
END; 

StartBCD: PUBLIC PROCEDURE - 
BEGIN 

[] ^ nextFi1ePage[]; 

bcdindex <- StreamDef s .Getlndex[stream]; 
bcdOffset ♦- 0; 
RETURN 
END; 

ReadBCDOffset: PUBLIC PROCEDURE RETURNS [CARDINAL] « 
BEGIN 

RETURN [bcdOffset]; 
END; 

ReadBCDIndex: PUBLIC PROCEDURE RETURNS [StreamDef s .Streamlndex] « 
BEGIN 

RETURN [BCDIndex[bcdOffset]]; 
END; 

AppendBCDWord: PUBLIC PROCEDURE [word: UNSPECIFIED] - 
BEGIN 

stream. put[stream, word]; 
bcdOffset ^ bcdOffset + 1; RETURN 
END; 

AppendBCDWords: PUBLIC PROCEDURE [addr: POINTER, n: CARDINAL] « 
BEGIN 

WriteObjeetWords[addr, n]; 
bcdOffset <- bcdOffset + n; 
RETURN 
END; 

AppendBCDString: PUBLIC PROCEDURE [s: STRING] « 
BEGIN 

header: StringBody <- [length:s . length, max1ength:s. length, text:]; 
AppendBCDWords [©header. SIZE[StringBody]] ; 

AppendBCDWords[@s.text. StringDefs .WordsForString[s. length] - SIZE[StringBody]]; 
RETURN 
END; 

UpdateBCDWords: PUBLIC PROCEDURE [offset: CARDINAL, addr: POINTER, n: CARDINAL] « 
BEGIN 

RewriteObjectWords[BCDIndex[offset], addr. n]; 
RETURN 
END; 

EndBCD: PUBLIC PROCEDURE - 
BEGIN 

[] ♦- nextFilePage[]; 
RETURN 
END; 

-- symbol table i/o 

SetObjectStamp: PUBLIC PROCEDURE » 
BEGIN 
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dataPtr.sourceVersion <- [FALSE, 0, 0, [0, 0]]; 
dataPtr.objectVersion ♦- BcdDefs.VersionStampf 

zapped: FALSE, 

net: dataPtr .netNumber, 

host: OsStaticDefs.OsStatics.se rial Number, 

time: TimeDef s.CurrentDayTime[]]; 
RETURN 
END; 

StartObjectFile: PUBLIC PROCEDURE [file: SegmentDef s . FileHandle] RETURNS [StreamDefs.StreamHandle] 
BEGIN 

objectFile: STRING ^ [40]; 
BEGIN OPEN SegmentDefs; 
IF file # NIL 

THEN SetFileAccess[file, Write+Append] 
ELSE 
BEGIN 

StringDef s. Appends tring[objectFi1e , dataPtr. rootFile]; 
StringDef s .AppendString[objectFile, " .bed"]; 
file <- NewFile[objectFile, Write+Append, Def aul tVersion] ; 
END; 
stream <- StreamDef s.CreateWordStream[f ile, Write+Append]; 
END; 
RETURN [stream] 
END; 

PageCount: PROCEDURE [words: CARDINAL] RETURNS [CARDINAL] - 
BEGIN 

RETURN [{words+(PageSize-l))/PageSize] 
END; 

SetFgt: PROCEDURE [d: SymDef s .WordOf f set , sourceFile: STRING] 
RETURNS [fgBase, fgPages: CARDINAL] « 
BEGIN 

np: CARDINAL = PageCount[d] ; 
dataPtr. symSeg. pages <- np; 
IF dataPtr. def initionsOnly 
THEN 

BEGIN fgBase <- 0; 

dataPtr. symSeg.extraPages <- fgPages ♦- 0; 
dataPtr. codeSeg. file <- BcdDef s. FTNull ; 
dataPtr. codeSeg. base <- dataPtr. codeSeg. pages ♦- 0; 
dataPtr. mtRoot.framesize <- 0; 
END 
ELSE 
BEGIN 

fgBase ♦- np; 
dataPtr . symSeg.extraPages <- fgPages *- PageCount[ 

(StringDefs.WordsForString[sourceFile.length]-SIZE[StringBody]) + 
LENGTH[dataPtr.fgTable]*SIZE[SymDefs.FGTEntry] + 
SIZE[SymDefs,fgHeader]]; 
END; 
dataPtr. codeSeg. class ^ code; dataPtr. codeSeg. extraPages ^ 0; 
RETURN 
END; 

WriteSubTable: PROCEDURE [table: TableDef s.TableSelector] - 
BEGIN OPEN TableDefs; 
base: TableBase; 
size: CARDINAL; 

[base, size] <- TableBounds[table] ; 
WriteObjectWords[LOOPHOLE[base], size]; 
RETURN 
END; 

litBias: CARDINAL; 

WriteExtension: PROCEDURE RETURNS [size: CARDINAL] « 
BEGIN 

OPEN SymSegDefs, TreeDefs; 
tb, Itb: TableDefs. TableBase; 
treeLoc: Treelndex; 
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OutputNotify: TableDef s.TableNotif ier ■ 
BEGIN 

tb <- base[treetype]; Itb ^ base[1ttype]; 
seb <- base[setype]; ctxb ^ base[ctxtype]; 
extb ^ base[exttype]; RETURN 
END; 

OutputLiteral: PROCEDURE [t: literal TreeLink] RETURNS [TreeLink] - 
BEGIN OPEN LitDefs; 
WITH t.info SELECT FROM 

word »> index <- CopyLiteral [[baseP:01 tb, index: index]]-! itSias; 

ENDCASE «> ERROR; 
RETURN [t] 
END; 

SetEmpty: TreeMap ■ 
BEGIN 

RETURN [empty] 
END; 

OutputTree: TreeMap » 
BEGIN 

s: TreeLink; 
node: Treelndex; 
nw: CARDINAL; 
WITH link: t SELECT FROM 

literal => v <- OutputLiteral[l ink]; 
subtree »> 

IF (s ♦- UpdateTree[link, OutputTree]) = empty 
THEN V ♦- empty 
ELSE 

WITH s SELECT FROM 
subtree => 

BEGIN node ^ index; 
nw <- NodeSize[@tb , node]; 
WriteObJectWords[@(tb+node)t, nw]; 
[] ♦- f reetree[UpdateTree[s, SetEmpty]]; 
V <- [subtree[index: treeLoc]]; treeLoc <- treeLoc + nw; 
END; 
ENDCASE => V <- s; 
ENDCASE «=> ERROR; -- for now 
RETURN 
END; 

extb: TableDefs.TableBase; 

exti, extLimit: Extlndex; 

seb, ctxb: TableDefs.TableBase; 

TableDefs.AddNotify[OutputNotify]; 

WriteObjectWords[@( tb+nul ITr ee Index )t, TreeNodeSize]; 

treeLoc <- FIRST[TreeIndex] + TreeNodeSize; 

[extb. LOOPHOLE[extLimit. CARDINAL]] <- TableDef s .TableBounds[exttype]; 

FOR exti +- FIRST[ExtIndex], exti + SIZE[ExtRecord] UNTIL exti » extLimit 

DO 

(extb+exti) .tree *- 

IF (ctxb+(seb+(extb+exti) . sei ) .ctxnum) .ctxlevel < SymDefs.lL 
THEN OutputTree[{extb+exti) .tree] 
ELSE empty; 

ENDLOOP; 
TableDef s.DropNotify[OutputNotify]; 
RETURN [LOOPHOLE[treeLoc]] 
END; 

TableOut: PUBLIC PROCEDURE [sourceFile: STRING] « 
BEGIN 

OPEN TableDefs, SymSegDefs; 
header: SymDef s .STHeader; 
f ixupLoc: StreamDef s.Streamlndex; 
d: SymDef s.WordOff set; 
nw: CARDINAL; 

fgheader: SymDef s. fgHeader; 
dataPtr. symSeg. class *- symbols; 
dataPtr , symSeg.base <~ nextFilePage[]; 

BEGIN 

OPEN header; 
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versionldent <- SymDef s .VersionID; 
version *- dataPtr .objectVersion; 
sourceVersion ^ dataPtr.sourceVersion; 
creator ^ dataPtr.compilerVersion; 
def initionsFile <- dataPtr . def initionsOnly ; 
directoryCtx *- dataPtr .moduleCtx; 
importCtx ♦- dataPtr. importCtx; 
outerCtx <- dataPtr .mainCtx; 
d 4- SIZE[SymDefs.STHeader]; 
hvBlock.offset ^ d; 

d <- d + (hvBlock.size ^ SymTabDefs .hashblock[] . length) ; 
htBlock. offset ♦- d ; d ♦- d + (htBlock, size <- TableBounds[httype] .size) ; 
ssBlock. offset *- d; d ^ d + (ssBlock. size ^ Tab1eBounds[sstype] .size) ; 
seBlock. offset <- d; d ♦■ d + (seBlock. size ^ TableBounds[setype] .size) ; 
ctxBlock. offset <- d; 

d <- d + (ctxBlock. size ^ Tab1eBounds[ctxtype] . size) ; 
mdBlock. offset <- d ; d ♦- d + (mdBlock.size <- TableBounds[mdtype] .size) ; 
bodyBlock. offset ♦- d; d ♦- d + TableBounds[bodytype] .size; 
bodyBlock. size ♦- dataPtr. defBodyLimit; 
END; 
IF TableBounds[exttype].size ff 

THEN fixupLoc ♦- StreamDef s .Getlndex[stream] 
ELSE 
BEGIN 

header . treeBlock ♦- header.! itBlock ^ header .extBlock ♦- [d, 0]; 
[header. fgRelPgBase, header .fgPgCount] ^ SetFgt[d, sourceFile]; 
END; 
WriteObjectWords [©header, SIZE[SymDef s .STHeader]] ; 
Wr i teOb jec two rds[ SymTabDefs .hashb1ock[].base, header. hvBlock.size]; 
WriteSubTable[httype]; 
WriteSubTable[sstype]; 
WriteSubTable[setype]; 
WriteSubTable[ctxtype]; 
WriteSubTable[mdtype]; 
WriteSubTable[ body type]; 
IF TableBounds[exttype].size # 
THEN 
BEGIN 

litBias <- LitDefs . ForgetLiterals[]; 
header. treeBlock. offset ♦- d; 
header. treeBlock. size ^ WriteExtension[]; 
d ^ d + header. treeBlock. size; 
header. litBlock. offset <- d; 
nw ^ TableBounds[l ttype]. size - litBias; 

WriteObjectWords[LOOPHOLE[TableBounds[lttype].base+litBias], nw]; 
d «- d + (header. litBlock. size <- nw); 
header. extBlock. of fset ^ d; 

d ^ d + (header. extBlock. size <- TableBounds[exttype] .size) ; 
WriteSubTable[exttype]; 

[header. fgRelPgBase, header .fgPgCount] ♦- SetFgt[d, sourceFile]; 
RewriteObjectWords[f ixupLoc , ©header, SIZE[SymDefs. STHeader]]; 
END; 
IF -dataPtr. def initionsOnly 
THEN 
BEGIN 

OPEN fgheader; 
[] <- nextFilePage[]; 

nw ^ St r i ngDefs. Wo rdsForString[ sourceFile. length] -SI ZE[StringBody]; 
fgoffset <- SIZE[SymDefs.fgHeader] + nw; 
fglength ^ LENGTH[dataPtr .f gTable]; 
sourcefile ♦■ StringBody[ 

length: sourceFile . length, 
maxlength: sourceFile. length, 
text: -- written separately — ]; 
WriteObjectWords[@fgheader, SIZE[SymDef s .fgHeader]]; 
Write0bjectWords[6sourceFile. text, nw]; 

WriteObjectWords[BASE[dataPtr.f gTable], LENGTH[dataPtr ,fgTable]*SIZE[SymDef s.FGTEntry]]; 
Sys temDefs.FreeSegment [BASE [dataPtr. f gTable]]; 
END; 
RETURN 
END; 

EndObjectFile: PUBLIC PROCEDURE [success: BOOLEAN] - 
BEGIN OPEN StreamDef s; 

savelndex: Streamlndex « Getlndex[stream]; 
zero: CARDINAL ^ 0; 
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IF -success 
THEN 

BEGIN -- invalidate bed 

Setlndex[stream, [0, 0]]; [] ♦- WriteB1ock[stream, ©zero, 1]; 

END; 
Setlndex[stream, dataPtr.fixupLoc]; 

[] <- WriteBlock[streani, QdataPtr .codeSeg, SIZE[BcdDefs .SGRecord]]; 
[] ^ WriteBlock[stream, QdataPtr . symSeg, SIZE[BcdDefs. SGRecord]]; 
[] ♦- WriteB1ock[stream, QdataPtr .mtRoot, dataPtr.MTRootSize]; 
Setlndex[stream, savelndex]; 
stream. destroy[stream]; RETURN 
END; 

-- xref i/o 

xrefStream: StreamDefs.StreamHandle; 

OpenXref Journal: PUBLIC PROCEDURE - 
BEGIN OPEN StringDefs; 
fileName: STRING ♦- [40]; 
header: Xref Journal Defs.XRJHeader ; 
nwSource, nwObject: CARDINAL; 
fileName. length *- 0; 

AppendString[f ileName, dataPtr . rootFile]; AppendString[f ileName, ".XRJ"]; 
BEGIN OPEN StreamDefs, SegmentDefs; 
xrefStream ^ CreateWordStream[ 

NewFile[f ileName, Write+Append, Def aul tVersion], 

Write+Append]; 
END; 
fileName. length <- 0; 

AppendString[f ileName, dataPtr . rootFile] ; AppendString[f ileName, ".bed"]; 
nwSource ^ WordsForString[dataPtr . sourceFile. length]; 
nwObject <- WordsForString[f ileName. length]; 
header ^ [ 

xrefVersion: Xref Journal Def s .Vers ion ID, 

sourceFile: LOOPHOLE[SIZE[Xref Journal Def s.XRJHeader]], 

objectFile: LOOPHOLE[SIZE[Xref JournalDef s . XRJHeader] + nwSource], 

dataOffset: SIZE[Xref JournalDef s.XRJHeader] + nwSource + nwObject, 

objec tVersion: dataPtr.objec tVersion]; 
[] <- StreamDefs. WriteBlock[xrefStream, ©header, SIZE[XrefJournalDefs. XRJHeader]]; 
[] ^ StreamDefs. WriteBlock[xrefStream, dataPtr. sourceFile, nwSource]; 
[] ^ StreamDefs .WriteBlock[xrefStream, fileName, nwObject]; 
RETURN 
END; 

AppendXrefWords: PUBLIC PROCEDURE [addr: POINTER, n: CARDINAL] - 
BEGIN 

[] *- StreamDefs. WriteBlock[xrefStream. addr, n]; 
RETURN 
END; 

CloseXref Journal: PUBLIC PROCEDURE « 
BEGIN 

xref St ream. destroy [xref Stream]; 
RETURN 
END; 

END. 



